8500 PRINT"[147]":POKE 53265,91
8505 A$=" [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160]"
8506 B$="[160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] "
8507 C$=" [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160]"
8508 D$="[160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] "
8510 POKE53280,0:POKE 53281,0:POKE53282,0:POKE53283,0:POKE 53284,0
8520 FORI=0TO3:PRINTA$;B$;C$;D$;C$;B$;:NEXT
8760 FORI=0TO50
8770 POKE 53281,10:POKE53282,2:POKE53283,9:POKE 53284,0
8780 POKE 53282,10:POKE53283,2:POKE53284,9:POKE 53281,0
8790 POKE 53283,10:POKE53284,2:POKE53281,9:POKE 53282,0
8800 POKE 53284,10:POKE53281,2:POKE53282,9:POKE 53283,0        
8810 NEXT